Carousel Volume 2 #1/carousel.iso/mactosh/john/hc_quick.hqx/Quick Compacter™ 1.0.2/stack_-1.xml

Extensible Markup Language | 1989-11-15 | 4.0 KB | 16 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in.2</name>
    <id>-1</id>
    <cardCount>1</cardCount>
    <cardID>2975</cardID>
    <listID>2058</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>---------------------open stack,checks to clear report flds-------------
on OpenStack
global totsav,nmQC,cur,f1,tst,QLvar
put empty into QLvar
put CleanUp into temp
if cd fld MultCheckΓëá1 then
if cd fld "Title" is not empty and cd fld "Totsavings" is not empty then
answer "Some information was left in the Report field" with¬
"Clear It" or "Leave It"
if it= "Clear It" then
put empty into cd fld "Title"
put empty into cd fld "BSaved"
put empty into cd fld "PerSaved"
put 0 into cd fld "Totsavings"
put 0 into totsav
end if
if it = "Leave It" then
put cd fld "Totsavings" into totsav
end if
end if
end if
put 0 into cur
set the scroll of cd fld id 4 to cur
set the scroll of cd fld id 25 to cur
set the scroll of cd fld id 53 to cur
put long name of this stack into nmQC
end OpenStack
-----------------Cleans up stack before quiting-------------------------
on CloseStack
global cur
put CleanUp into temp
put 0 into cur
set the scroll of cd fld id 4 to cur
set the scroll of cd fld id 25 to cur
set the scroll of cd fld id 53 to cur
set locktext of cd fld "Totsavings" to true
set locktext of cd fld "Title" to true
set locktext of cd fld "BSaved" to true
put the freesize of this stack into fsQC
if fsQC>0 then domenu "Compact Stack"
end CloseStack
-----------------------------------------------------------------------
----- This is the 'Guts' of the program...this does all the compaction
-----------------------------------------------------------------------
on DoIt
global tst,totsav,nmQC,Numb,TotNumb,StackPath,Multcnt,ComStatus,¬
Etst,QLtst,QLSTKName
put empty into d
put empty into u
put empty into chr
put empty into TargSTK
---only on Single or MultCom
if ComStatus="S" or ComStatus="Mult"
then
put "Number"&&Numb&&"of"&&TotNumb into temp
put "Attempt to compact which stack?"&&temp
put empty into temp
Put FileName("STAK") into TargSTK
set cursor to watch
if TargSTK is empty
then
put 1 into tst
exit DoIt
end if
set lockscreen to true   -----these two lines will reset the screen
set lockscreen to false  -----so that the outline disappears
put short name of TargSTK into d
put "Checking stack:"&&d
put Che(TargSTK,ComStatus) into chr
if chr="S,Y" then exit Doit
if chr="M,Y,D"
then
put 1 into tst
exit Doit
end if
if chr="M,Y,C" then exit Doit
end if
if ComStatus="ENTFLDR" then  ------------only for Entire FLDR com
put the short name of StackPath into StackName
put "Checking stack:"&&StackName
put Che(StackPath,ComStatus) into chr
if chr="E,Y,C" then exit Doit ---continue with loop
if chr="E,Y,D" then ----exit Entire Folder compact loop
put 1 into Etst
exit Doit
end if
put StackPath into TargSTK
end if
if ComStatus="Q1" then ----------------only for single QL compact
put "Checking stack:"&&QLSTKName
put Che(StackPath,ComStatus) into chr
if chr="Q1,Y" then exit Doit
put StackPath into TargSTK
end if
if ComStatus="Q2" then --------------only for entire QL compact
put "Checking stack:"&&QLSTKName
put Che(StackPath,ComStatus) into chr
if chr="Q2,Y,C" then exit Doit
if chr="Q2,Y,D" then
put 1 into QLtst
exit Doit
end if
put StackPath into TargSTK
end if
----End of Error Checking...all stacks should be compactable--------
put the size of stack TargSTK into STS
put freeSize of stack TargSTK into FTS
if FTS=0 then
if ComStatus="Mult" then
answer "That stack does not need to be compacted." with¬
"Cancel Run" or "Continue Run"
if it="Cancel Run" then
put 1 into tst
end if
else
put the short name of TargSTK into temp
put temp&&"does not need to be compacted."
end if
exit Doit
end if
put the number of chars of FTS into c
put FTS into Cb
if c>3 then
put char c-3 of Cb into temp
put